Tekstfil database (Hente linjer fra fx [Eksempel] til den næste [)

Hej. Jeg har lavet en tekstfil der ligner lidt det her.

Kode 

[--test1--]
Linje 1
Linje 2
Linje 3

[--test2--]
Linje 1
Linje 2
Linje 3

[--test3--]
Linje 1
Linje 2
Linje 3

Hvordan loader jeg disse "entries" til en tekstboks.
Hvis jeg fx indtaster test2 i en inputbox så loader den
alle linjer i ---test2--- ???

Med Venlig Hilsen
Morten Torndahl Pedersen

Kode 

Private Sub Form_Load()
Dim Value As Variant

Value = LoadFile("C:\\Ny.txt", "test2")
Debug.Print Join(Value, ",")

End Sub


Private Function LoadFile(FileName As String, Header As String) As Variant
Dim FObj As New Scripting.FileSystemObject
Dim TS As TextStream
Dim S As String
Dim Tmp As Variant

Set TS = FObj.OpenTextFile(FileName, ForReading)
While TS.AtEndOfStream = False
    S = TS.ReadLine
    If S = "[--" & Header & "--]" Then
        Do
            S = TS.ReadLine
            Tmp = Tmp & S & ","
        Loop Until S = ""
        LoadFile = Split(Tmp, ",")
        GoTo Abort
    End If
Wend

Abort:
TS.Close
Set FObj = Nothing

End Function

Det kan laves således.
Husk at sætte en reference til Microsoft Scripting Runtime.
Dette gøres i VB i menuen: Project - References.

Kode 

Private Sub Form_Load()
Text1.Text = LoadFile("C:\\Ny.txt", "test2")

End Sub


Private Function LoadFile(FileName As String, Header As String) As String
Dim FObj As New Scripting.FileSystemObject
Dim TS As TextStream
Dim S As String

Set TS = FObj.OpenTextFile(FileName, ForReading)
While TS.AtEndOfStream = False
    S = TS.ReadLine
    If S = "[--" & Header & "--]" Then
        Do
            S = TS.ReadLine
            LoadFile = LoadFile & S & vbCrLf
        Loop Until S = ""
        GoTo Abort
    End If
Wend

Abort:
TS.Close
Set FObj = Nothing

End Function

SHY